home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00028_Script_28 < prev    next >
Text File  |  1997-09-29  |  613b  |  24 lines
  1. on mouseUp
  2.   set the castNum of sprite 5 to the number of cast "gongClose"
  3.   puppetSprite 5,false
  4.   updateStage
  5.   
  6.   global UsermonNum
  7.   put (field "UsermonNum") into UsermonNum
  8.   if UsermonNum < 10 or 100 < UsermonNum then
  9.     global quitMODE
  10.     set quitMODE = "ON"
  11.     pause
  12.     
  13.     put the stageleft into H
  14.     put the stagetop into V
  15.     set the rect of window "monNum" to rect(H+128,V+170,H+512,V+310)
  16.     set the modal of window "monNum" to true
  17.     set the windowtype of window "monNum" to 2
  18.     open window "monNum"
  19.   else
  20.     puppetSound 0
  21.     go to frame "stre2"
  22.   end if
  23.   
  24. end